home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch1 / FastView.frm (.txt) < prev    next >
Visual Basic Form  |  1999-03-19  |  4KB  |  126 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFastView 
  3.    Caption         =   "FastView"
  4.    ClientHeight    =   5685
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   8715
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   5685
  11.    ScaleWidth      =   8715
  12.    Begin VB.ComboBox cboPattern 
  13.       Height          =   315
  14.       Left            =   0
  15.       TabIndex        =   3
  16.       Text            =   "Combo1"
  17.       Top             =   3600
  18.       Width           =   2175
  19.    End
  20.    Begin VB.DriveListBox drvDrives 
  21.       Height          =   315
  22.       Left            =   0
  23.       TabIndex        =   2
  24.       Top             =   0
  25.       Width           =   2175
  26.    End
  27.    Begin VB.DirListBox dirDirectories 
  28.       Height          =   1155
  29.       Left            =   0
  30.       TabIndex        =   1
  31.       Top             =   360
  32.       Width           =   2175
  33.    End
  34.    Begin VB.FileListBox filFiles 
  35.       Height          =   1845
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   1560
  39.       Width           =   2175
  40.    End
  41.    Begin VB.Image imgView 
  42.       Height          =   615
  43.       Left            =   2280
  44.       Top             =   0
  45.       Width           =   735
  46.    End
  47. Attribute VB_Name = "frmFastView"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Option Explicit
  53. ' Make the FileList look in this directory.
  54. Private Sub dirDirectories_Change()
  55.     filFiles.Path = dirDirectories.Path
  56. End Sub
  57. ' Make the DirectoryList look at this drive.
  58. Private Sub drvDrives_Change()
  59.     'On Error GoTo DriveError
  60.     dirDirectories.Path = drvDrives.Drive
  61.     Exit Sub
  62. DriveError:
  63.     drvDrives.Drive = dirDirectories.Path
  64.     Exit Sub
  65. End Sub
  66. ' Display the file.
  67. Private Sub filFiles_Click()
  68. Dim fname As String
  69.     On Error GoTo LoadPictureError
  70.     fname = filFiles.Path & "\" & filFiles.FileName
  71.     Caption = "FastView [" & fname & "]"
  72.     MousePointer = vbHourglass
  73.     DoEvents
  74.     imgView.Picture = LoadPicture(fname)
  75.     MousePointer = vbDefault
  76.     Exit Sub
  77. LoadPictureError:
  78.     Beep
  79.     MousePointer = vbDefault
  80.     Caption = "Viewer [Invalid picture]"
  81.     Set imgView.Picture = Nothing
  82.     Exit Sub
  83. End Sub
  84. ' Initialize the file patterns.
  85. Private Sub Form_Load()
  86.     cboPattern.AddItem "Bitmaps (*.bmp)"
  87.     cboPattern.AddItem "GIF (*.gif)"
  88.     cboPattern.AddItem "JPEG (*.jpg)"
  89.     cboPattern.AddItem "Icons (*.ico)"
  90.     cboPattern.AddItem "Matafiles (*.wmf)"
  91.     cboPattern.AddItem "DIBs (*.dib)"
  92.     cboPattern.AddItem "Graphic (*.gif;*.jpg;*.ico;*.bmp;*.wmf;*.dib)"
  93.     cboPattern.AddItem "All Files (*.*)"
  94.     ' Select all graphic files.
  95.     cboPattern.ListIndex = 6
  96. End Sub
  97. ' Make the controls as large as possible.
  98. Private Sub Form_Resize()
  99. Dim wid As Integer
  100. Dim hgt As Integer
  101.     If WindowState = vbMinimized Then Exit Sub
  102.     wid = drvDrives.Width
  103.     drvDrives.Move 0, 0, wid
  104.     hgt = ScaleHeight - cboPattern.Height
  105.     If hgt < 120 Then hgt = 120
  106.     cboPattern.Move 0, hgt, wid
  107.     hgt = (cboPattern.Top - drvDrives.Top - drvDrives.Height) / 2
  108.     If hgt < 120 Then hgt = 120
  109.     dirDirectories.Move 0, drvDrives.Top + drvDrives.Height + 0, wid, hgt
  110.     filFiles.Move 0, dirDirectories.Top + dirDirectories.Height + 0, wid, hgt
  111.     wid = ScaleWidth - drvDrives.Width
  112.     If wid < 120 Then wid = 120
  113.     imgView.Move drvDrives.Width, 0, wid, ScaleHeight
  114. End Sub
  115. ' Set the filFiles control's Pattern property to
  116. ' the selected pattern.
  117. Private Sub cboPattern_Click()
  118. Dim pat As String
  119. Dim p1 As Integer
  120. Dim p2 As Integer
  121.     pat = cboPattern.List(cboPattern.ListIndex)
  122.     p1 = InStr(pat, "(")
  123.     p2 = InStr(pat, ")")
  124.     filFiles.Pattern = Mid$(pat, p1 + 1, p2 - p1 - 1)
  125. End Sub
  126.